home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990: Discy Business / Discy Business.2mg / DEV.CD / GUIDED.TOURS / IIC.PLUS.TOUR / BASIC / QUIT (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1983-10-14  |  1.2 KB  |  38 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  ONERR  GOTO 101
  2. 1  LET IN$ = "X": POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24: HOME :T = 3:B = 12:L = 1:W = 39: GOSUB 81: GOSUB 71
  3. 2  PRINT " To return to the menu of this tour";
  4. 3  PRINT " disk, press RETURN."
  5. 4  PRINT 
  6. 5  PRINT " If you would like to go into"
  7. 6  PRINT " Applesoft BASIC to write your own"
  8. 7  PRINT " BASIC programs, enter the word"
  9. 8  PRINT " 'BASIC' and press RETURN."
  10. 11  POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24: VTAB 16
  11. 21  POKE  -16368,0: GOSUB 2000
  12. 31 P =  PEEK( -16384):TE = TE +1: ON P = 155 GOTO 91: ON P < >13 GOTO 41: IF TE <225  THEN 31
  13. 41  IF P = 141  THEN TE = 0: CALL  -998: POKE  -16368,0: RETURN 
  14. 51 M$ = "Press RETURN": GOSUB 61: GOSUB 53: GOSUB 60: GOSUB 53: GOTO 51
  15. 53 Z = 55
  16. 54 P =  PEEK( -16384): IF P >127  THEN  POKE  -16368,0: GOTO 57
  17. 55 Z = Z -1: IF Z  THEN 54
  18. 56  RETURN 
  19. 57  IF P = 155  THEN  GOSUB 60: POP : POP : GOTO 91
  20. 58  IF P = 141  THEN  GOSUB 60: POP : GOTO 41
  21. 59  GOTO 55
  22. 60 M$ = "_____________"
  23. 61  VTAB B: HTAB (W - LEN(M$))/2 -1: PRINT M$;: RETURN 
  24. 71  POKE 34,T -2: POKE 35,B: POKE 32,L: POKE 33,W +1: HOME : FOR BD = 2 TO W -1: VTAB T -1: HTAB BD: PRINT "_";: VTAB B: HTAB BD: PRINT "_";: NEXT BD
  25. 75  FOR BD = T TO B: VTAB BD: HTAB 1: PRINT "|";: HTAB W: PRINT "|";: NEXT BD: POKE 34,T: POKE 35,B -1: POKE 32,L +2: POKE 33,W -4: HOME : RETURN 
  26. 81  POKE 32,0: POKE 33,40: POKE 34,V: POKE 35,24: HOME : RETURN 
  27. 91  POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24: PRINT : PRINT  CHR$(4);"RUN MENU"
  28. 101  RESUME 
  29. 2000  PRINT  SPC( 13): INPUT "--> ";S$
  30. 2020  IF  LEN(S$) = 0  THEN  PRINT  CHR$(4);"prefix /tutor/menu": PRINT  CHR$(4);"-startup"
  31. 2030  IF  LEN(S$) < >5  THEN 1
  32. 2040  IF  MID$ (S$,1,1) < >"b"  AND  MID$ (S$,1,1) < >"B"  THEN 1
  33. 2050  IF  MID$ (S$,2,1) < >"a"  AND  MID$ (S$,2,1) < >"A"  THEN 1
  34. 2060  IF  MID$ (S$,3,1) < >"s"  AND  MID$ (S$,3,1) < >"S"  THEN 1
  35. 2070  IF  MID$ (S$,4,1) < >"i"  AND  MID$ (S$,4,1) < >"I"  THEN 1
  36. 2080  IF  MID$ (S$,5,1) < >"c"  AND  MID$ (S$,5,1) < >"C"  THEN 1
  37. 2100  HOME : NEW 
  38. 32000  REM COPYRIGHT 1986,1988 APPLE COMPUTER, INC.